1
2 Public Class FrmSERVERSETTINGS
3     Dim CONSTR As String
4     Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
5         Call writeFileStrData(txtip.Text &
":" & txtservername.Text & ":" & txtusername.Text & ":" & txtpassword.Text & ":" & (IIf(RadioButton1.Checked, 1, 2)), Application.StartupPath & "\Config.ini", , "Unicode")
6         checkServer()
7         Me.Close()
8         MDIMain.Show()
9
10         
'FrmLOGIN.Show()
11
12     End Sub
13
14     Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
15         Me.Close()
16         
'End
17     End Sub
18
19     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
20         FrmSet.ShowDialog()
21     End Sub
22
23     Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
24         txtip.Enabled = False
25         txtpassword.Enabled = False
26         txtusername.Enabled = False
27         txtservername.Focus()
28     End Sub
29
30     Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
31         txtip.Enabled = True
32         txtpassword.Enabled = True
33         txtservername.Enabled = True
34         txtusername.Enabled = True
35         txtip.Focus()
36     End Sub
37 End Class


Gõ tìm kiếm nhanh...